﻿Public Class BrokenRule

    Private _RelatesToProperty As String
    Private _Rule As String

    Public Sub New(ByVal RelatesToProperty As String, ByVal Rule As String)
        _RelatesToProperty = RelatesToProperty
        _Rule = Rule
    End Sub

    Public ReadOnly Property Rule() As String
        Get
            Return _Rule
        End Get      
    End Property

    Public ReadOnly Property RelatesToProperty() As String
        Get
            Return _RelatesToProperty
        End Get
    End Property

End Class
